From: Dave Love Date: Thu, 30 Jan 2003 22:58:32 +0000 (+0000) Subject: (lookup-words): Fix last change. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28519 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a5c414198dd8b5ac384e57d56d2a27bbf04d3c91;p=emacs.git (lookup-words): Fix last change. --- diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 249cbe28972..d4abe768187 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1929,8 +1929,9 @@ Optional second argument contains the dictionary to use; the default is (while (search-backward "*" nil t) (insert ".")) (setq word (buffer-string)) (erase-buffer)) - ;; Use apply since `lookup-dict' can be nil. - (setq status (apply #'call-process prog nil t nil args word lookup-dict)) + (setq status (if lookup-dict + (call-process prog nil t nil args word lookup-dict) + (call-process prog nil t nil args word))) ;; grep returns status 1 and no output when word not found, which ;; is a perfectly normal thing. (if (stringp status)